﻿Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports DevExpress.XtraBars
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Helpers
Imports DevExpress.Skins
Imports DevExpress.LookAndFeel
Imports DevExpress.UserSkins
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Collections
Imports System.Threading
Public Class frmMenuInicio

    Public Shared abrirclie As New frmAgregarCliente
    Public Shared abrirbene As New frmAgregarBeneficiarios
    Public Shared abrirnewahorro As New frmAperturarCuentaAhorro
    Public Shared abrirprestamo As New AgregarPrestamo
    Public Shared abrirbeneact As New frmModificarBeneficiario
    Public Shared abriractcuentaahorro As New frmActualizarAperturaAhorro
    Public Shared abriremple As New frmAgregarEmpleado
    Public Shared abriractemple As New frmActualizarEmpleado
    Public Shared abriragregaruser As New frmAgregarUsuario
    Public Shared abriractuser As New frmModificarUsuarios
    Public Shared abrirdetalleahorro As New frmDetalleAhorros
    Public Shared abriractcliente As New frmActualizarCliente


    Private Sub btnAgregarCliente_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnAgregarCliente.ItemClick
        abrirclie = New frmAgregarCliente
        abrirclie.MdiParent = Me
        abrirclie.Show()
    End Sub

    Private Sub btnCerrar_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnCerrar.ItemClick
        Me.Close()
    End Sub

    Private Sub btnAgregarBene_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnAgregarBene.ItemClick
        abrirbene = New frmAgregarBeneficiarios
        abrirbene.MdiParent = Me
        abrirbene.Show()
    End Sub

    Private Sub btnCuentaAhorro_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnCuentaAhorro.ItemClick
        abrirnewahorro = New frmAperturarCuentaAhorro
        abrirnewahorro.MdiParent = Me
        abrirnewahorro.Show()
    End Sub

    Private Sub btnAperturaCredito_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnAperturaCredito.ItemClick
        abrirprestamo = New AgregarPrestamo
        abrirprestamo.MdiParent = Me
        abrirprestamo.Show()
    End Sub

    Private Sub btnActualizarBeneficiarios_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnActualizarBeneficiarios.ItemClick
        abrirbeneact = New frmModificarBeneficiario
        abrirbeneact.MdiParent = Me
        abrirbeneact.Show()
    End Sub

    Private Sub btnActAhorros_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnActAhorros.ItemClick
        abriractcuentaahorro = New frmActualizarAperturaAhorro
        abriractcuentaahorro.MdiParent = Me
        abriractcuentaahorro.Show()
    End Sub

    Private Sub btnAgregarEmpleado_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnAgregarEmpleado.ItemClick
        abriremple = New frmAgregarEmpleado
        abriremple.MdiParent = Me
        abriremple.Show()
    End Sub

    Private Sub btnActualizarEmpleado_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnActualizarEmpleado.ItemClick
        abriractemple = New frmActualizarEmpleado
        abriractemple.MdiParent = Me
        abriractemple.Show()
    End Sub

    Private Sub btnAgregarUsuario_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnAgregarUsuario.ItemClick
        abriragregaruser = New frmAgregarUsuario
        abriragregaruser.MdiParent = Me
        abriragregaruser.Show()
    End Sub

    Private Sub btnActualizarUsuario_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnActualizarUsuario.ItemClick
        abriractuser = New frmModificarUsuarios
        abriractuser.MdiParent = Me
        abriractuser.Show()
    End Sub

    Private Sub btnDetalleAhorro_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnDetalleAhorro.ItemClick
        abrirdetalleahorro = New frmDetalleAhorros
        abrirdetalleahorro.MdiParent = Me
        abrirdetalleahorro.Show()
    End Sub

    Private Sub btnActualizarCliente_ItemClick(sender As Object, e As ItemClickEventArgs) Handles btnActualizarCliente.ItemClick
        abriractcliente = New frmActualizarCliente
        abriractcliente.MdiParent = Me
        abriractcliente.Show()
    End Sub
End Class